home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Workbench / Archivers / ViewDIZ.lha / ViewDIZ / Free Registration next >
Text File  |  1998-01-24  |  2KB  |  100 lines
  1. ;$VER: ViewDIZ_RegistrationScript 1.0
  2. (message
  3.     "\n"
  4.     "V I E W D I Z   R E G I S T R A T I O N \n\n"
  5.     "The following section will prepare the order form "
  6.     "required to become a registered user of ViewDIZ.  When done "
  7.     "it will be saved to disk - ready to be mailed to me.\n\n"
  8.     "ViewDIZ is FREEWARE - Registering will automatically put you "
  9.     "on my mailing list and you will recieve an e-mail each time a "
  10.     "new version comes up.  Furthermore you are encouraging me to "
  11.     "keep developing ViewDIZ.  Thanks !\n\n"
  12.     "Mikael Lund"
  13. )
  14.  
  15. (set #name
  16.     (askstring (prompt "\nWhat is your name ?\n") (help ""))
  17. )
  18.  
  19. (set #country
  20.     (askstring (prompt "\nIn which country or state do you live in ?:\n") (help ""))
  21. )
  22.  
  23. (set #town
  24.     (askstring (prompt "\nWhere in "#country" more precisely ?\n") (help ""))
  25. )
  26.  
  27. (set #email
  28.     (askstring (prompt "\nPlease enter your e-mail address ?\n") (help ""))
  29. )
  30.  
  31. (run "version c:viewdiz >env:vd_os")
  32. (set #ver (getenv "vd_os"))
  33. (delete "vd_os")
  34. (set #ver (substr #ver 0 (- (strlen #ver) 1)))
  35. (set #ver
  36.     (askstring (prompt "\nWhat ViewDIZ version do you have ?\n") (default #ver) (help ""))
  37. )
  38.  
  39. (run "version >env:vd_os")
  40. (set #os (getenv "vd_os"))
  41. (delete "vd_os")
  42. (set #os (substr #os 0 (- (strlen #os) 1)))
  43. (set #os
  44.     (askstring (prompt "\nWhat operating system(s) do you have ?\n") (default #os) (help ""))
  45. )
  46.  
  47. (set #cpu (database "cpu"))
  48. (set #cpu
  49.     (askstring (prompt "\nWhat CPU(s) do you have ?\n") (default #cpu) (help ""))
  50. )
  51.  
  52. (set #comment
  53.     (askstring (prompt "\nDo you have any comments, suggestions etc. you would like to tell me about ?\n") (help ""))
  54. )
  55.  
  56. (set #nl "\n" #final
  57.     (cat
  58.     "   $VER: "#ver #nl
  59.     "   NAME: "#name #nl
  60.     "COUNTRY: "#country #nl
  61.     "   TOWN: "#town #nl
  62.     " E-MAIL: "#email #nl
  63.     "    CPU: "#cpu #nl
  64.     "     OS: "#os #nl
  65.     "COMMENT: "#comment #nl
  66.     )
  67. )
  68.  
  69. (set @default-dest
  70.     (askdir
  71.         (prompt "Where should the orderform be saved to ?")
  72.         (help "")
  73.         (default "Ram:")
  74.     )
  75. )
  76.  
  77. (set #out (tackon @default-dest "ViewDIZ_Regform"))
  78.  
  79. (textfile
  80.     (dest #out)
  81.     (append #final)
  82. )
  83.  
  84. (if (exists "YAM:YAM" (noreq))
  85.     (rexx "c/YAMail "#out)
  86. )
  87.  
  88. (exit    "\n"
  89.     "That's it !   Now mail the file to me "
  90.     "and you'll recieve an e-mail when the next ViewDIZ "
  91.     "version is available.  If you have got any questions, suggestions "
  92.     "or whatever you are welcome to contact me at the following address:\n"
  93.     "\nMikael Lund"
  94.     "\n╞girsgade 66, 2th."
  95.     "\n2200 K°benhavn N"
  96.     "\nDenmark"
  97.     "\n\nki9656@unidhp.uni-c.dk"
  98. )
  99. (welcome)
  100.